Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Лабораторна робота №11

Інформація про навчальний заклад

ВУЗ:
Ужгородський національний університет
Інститут:
Не вказано
Факультет:
Програмна Інженерія
Кафедра:
Не вказано

Інформація про роботу

Рік:
2015
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови

Частина тексту файла

ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД “УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ” Факультет інформаційних технологій Лабораторна робота №11 Лабораторна робота №11. Тема: Процедури та функції. Мета: Вивчення структур процедур та функцій та їх використання в програмі. Вивчити питання: Загальні відомості. Опис процедур користувача. Визначення і виклик функцій. Параметри. Рекурсивні підпрограми. Процедурний тип даних. Підпрограми як параметри. Завдання до роботи: Скласти програми на мові Pascal для розв'язування задач за індивідуальним завданням. Оформити звіт про виконання роботи та завантажити його в системі електронного навчання ДВНЗ «УжНУ» в установлений термін. Варіант 3 1. Дано дійсні числа s, t. Обчислити , де . 2. Дано масив Х(8). Скласти процедуру для утворення матриці А(8,8): . ХІД РОБОТИ 1. Дано дійсні числа s, t. Обчислити , де . program E11; function G(a,b:real):real; begin G := (a*a+b*b)/(a*a+2*a*b+3*b*b+4); end; function Summ(a,b,c:real):real; begin Summ:=a+b-c; end; var s,t,g1,g2,g3,sm:real; begin write('s='); readln(s); write('t='); readln(t); sm:= G(1.2,s) + G(t,s)+ G(2*s-1,t); writeln('Summa=',sm:0:5); end. / 2. Дано масив Х(8). Скласти процедуру для утворення матриці А(8,8): . const n=8; type TVector = array [1..n] of Longint; MatrixA = array [1..n] of TVector; procedure mGen(const v:TVector; var m:MatrixA); var i, j: Integer; begin m[1]:=v; for i:=2 to n do for j:=1 to n do m[i,j]:=m[1,j]*m[i-1,j]; end; var x: TVector; a: MatrixA; i,j:Integer; begin for i:=1 to n do x[i]:=i; mGen(x,a); WriteLn('A ='); for i:=1 to n do begin for j:=1 to n do Write(a[i,j]:9); WriteLn; end; end. / ВИСНОВОК. За допомогою даної лабораторної роботи я вивчила структури процедур та функцій та їх використання в програмі.
Антиботан аватар за замовчуванням

03.05.2018 21:05

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини